home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / QuickDraw 3D / Development / Interfaces / QD3DPascalInterfaces / QD3DStyle.p < prev    next >
Encoding:
Text File  |  1996-11-15  |  8.5 KB  |  220 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        QD3DStyle.p
  3.  
  4.      Contains:    Style types and routines                                         
  5.  
  6.      Version:    Technology:    Quickdraw 3D 1.0.6
  7.                  Release:    Universal Interfaces 2.1.5d1
  8.  
  9.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10.  
  11.      Bugs?:        If you find a problem with this file, send the file and version
  12.                  information (from above) and the problem description to:
  13.  
  14.                      Internet:    apple.bugs@applelink.apple.com
  15.                      AppleLink:    APPLE.BUGS
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT QD3DStyle;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __QD3DSTYLE__}
  28. {$SETC __QD3DSTYLE__ := 1}
  29.  
  30. {$I+}
  31. {$SETC QD3DStyleIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __QD3D__}
  35. {$I QD3D.p}
  36. {$ENDC}
  37.  
  38. {$PUSH}
  39. {$ALIGN POWER}
  40. {$LibExport+}
  41.  
  42. {
  43. *****************************************************************************
  44.  **                                                                             **
  45.  **                    Style Base Class Routines                                 **
  46.  **                                                                             **
  47.  ****************************************************************************
  48. }
  49. FUNCTION Q3Style_GetType(style: TQ3StyleObject): TQ3ObjectType; C;
  50. FUNCTION Q3Style_Submit(style: TQ3StyleObject; view: TQ3ViewObject): TQ3Status; C;
  51. {
  52. *****************************************************************************
  53.  **                                                                             **
  54.  **                                 Subdivision                                 **
  55.  **                                                                             **
  56.  ****************************************************************************
  57. }
  58.  
  59. TYPE
  60.     TQ3SubdivisionMethod         = LONGINT;
  61. CONST
  62.     kQ3SubdivisionMethodConstant = {TQ3SubdivisionMethod}0;
  63.     kQ3SubdivisionMethodWorldSpace = {TQ3SubdivisionMethod}1;
  64.     kQ3SubdivisionMethodScreenSpace = {TQ3SubdivisionMethod}2;
  65.  
  66.  
  67. TYPE
  68.     TQ3SubdivisionStyleDataPtr = ^TQ3SubdivisionStyleData;
  69.     TQ3SubdivisionStyleData = RECORD
  70.         method:                    TQ3SubdivisionMethod;
  71.         c1:                        Single;
  72.         c2:                        Single;
  73.     END;
  74.  
  75. FUNCTION Q3SubdivisionStyle_New({CONST}VAR data: TQ3SubdivisionStyleData): TQ3StyleObject; C;
  76. FUNCTION Q3SubdivisionStyle_Submit({CONST}VAR data: TQ3SubdivisionStyleData; view: TQ3ViewObject): TQ3Status; C;
  77. FUNCTION Q3SubdivisionStyle_SetData(subdiv: TQ3StyleObject; {CONST}VAR data: TQ3SubdivisionStyleData): TQ3Status; C;
  78. FUNCTION Q3SubdivisionStyle_GetData(subdiv: TQ3StyleObject; VAR data: TQ3SubdivisionStyleData): TQ3Status; C;
  79. {
  80. *****************************************************************************
  81.  **                                                                             **
  82.  **                                Pick ID                                         **
  83.  **                                                                             **
  84.  ****************************************************************************
  85. }
  86. FUNCTION Q3PickIDStyle_New(id: LONGINT): TQ3StyleObject; C;
  87. FUNCTION Q3PickIDStyle_Submit(id: LONGINT; view: TQ3ViewObject): TQ3Status; C;
  88. FUNCTION Q3PickIDStyle_Get(pickIDObject: TQ3StyleObject; VAR id: LONGINT): TQ3Status; C;
  89. FUNCTION Q3PickIDStyle_Set(pickIDObject: TQ3StyleObject; id: LONGINT): TQ3Status; C;
  90. {
  91. *****************************************************************************
  92.  **                                                                             **
  93.  **                                Pick Parts                                     **
  94.  **                                                                             **
  95.  ****************************************************************************
  96. }
  97.  
  98. TYPE
  99.     TQ3PickPartsMasks             = LONGINT;
  100. CONST
  101.     kQ3PickPartsObject            = {TQ3PickPartsMasks}0;
  102.     kQ3PickPartsMaskFace        = {TQ3PickPartsMasks}$01;
  103.     kQ3PickPartsMaskEdge        = {TQ3PickPartsMasks}$02;
  104.     kQ3PickPartsMaskVertex        = {TQ3PickPartsMasks}$04;
  105.  
  106.  
  107. TYPE
  108.     TQ3PickParts                        = LONGINT;
  109. FUNCTION Q3PickPartsStyle_New(parts: TQ3PickParts): TQ3StyleObject; C;
  110. FUNCTION Q3PickPartsStyle_Submit(parts: TQ3PickParts; view: TQ3ViewObject): TQ3Status; C;
  111. FUNCTION Q3PickPartsStyle_Get(pickPartsObject: TQ3StyleObject; VAR parts: TQ3PickParts): TQ3Status; C;
  112. FUNCTION Q3PickPartsStyle_Set(pickPartsObject: TQ3StyleObject; parts: TQ3PickParts): TQ3Status; C;
  113. {
  114. *****************************************************************************
  115.  **                                                                             **
  116.  **                        Receive Shadows                                         **
  117.  **                                                                             **
  118.  ****************************************************************************
  119. }
  120. FUNCTION Q3ReceiveShadowsStyle_New(receives: TQ3Boolean): TQ3StyleObject; C;
  121. FUNCTION Q3ReceiveShadowsStyle_Submit(receives: TQ3Boolean; view: TQ3ViewObject): TQ3Status; C;
  122. FUNCTION Q3ReceiveShadowsStyle_Get(styleObject: TQ3StyleObject; VAR receives: TQ3Boolean): TQ3Status; C;
  123. FUNCTION Q3ReceiveShadowsStyle_Set(styleObject: TQ3StyleObject; receives: TQ3Boolean): TQ3Status; C;
  124. {
  125. *****************************************************************************
  126.  **                                                                             **
  127.  **                            Fill Styles                                         **
  128.  **                                                                             **
  129.  ****************************************************************************
  130. }
  131.  
  132. TYPE
  133.     TQ3FillStyle                 = LONGINT;
  134. CONST
  135.     kQ3FillStyleFilled            = {TQ3FillStyle}0;
  136.     kQ3FillStyleEdges            = {TQ3FillStyle}1;
  137.     kQ3FillStylePoints            = {TQ3FillStyle}2;
  138.  
  139. FUNCTION Q3FillStyle_New(fillStyle: TQ3FillStyle): TQ3StyleObject; C;
  140. FUNCTION Q3FillStyle_Submit(fillStyle: TQ3FillStyle; view: TQ3ViewObject): TQ3Status; C;
  141. FUNCTION Q3FillStyle_Get(styleObject: TQ3StyleObject; VAR fillStyle: TQ3FillStyle): TQ3Status; C;
  142. FUNCTION Q3FillStyle_Set(styleObject: TQ3StyleObject; fillStyle: TQ3FillStyle): TQ3Status; C;
  143. {
  144. *****************************************************************************
  145.  **                                                                             **
  146.  **                            Backfacing Styles                                 **
  147.  **                                                                             **
  148.  ****************************************************************************
  149. }
  150.  
  151. TYPE
  152.     TQ3BackfacingStyle             = LONGINT;
  153. CONST
  154.     kQ3BackfacingStyleBoth        = {TQ3BackfacingStyle}0;
  155.     kQ3BackfacingStyleRemove    = {TQ3BackfacingStyle}1;
  156.     kQ3BackfacingStyleFlip        = {TQ3BackfacingStyle}2;
  157.  
  158. FUNCTION Q3BackfacingStyle_New(backfacingStyle: TQ3BackfacingStyle): TQ3StyleObject; C;
  159. FUNCTION Q3BackfacingStyle_Submit(backfacingStyle: TQ3BackfacingStyle; view: TQ3ViewObject): TQ3Status; C;
  160. FUNCTION Q3BackfacingStyle_Get(backfacingObject: TQ3StyleObject; VAR backfacingStyle: TQ3BackfacingStyle): TQ3Status; C;
  161. FUNCTION Q3BackfacingStyle_Set(backfacingObject: TQ3StyleObject; backfacingStyle: TQ3BackfacingStyle): TQ3Status; C;
  162. {
  163. *****************************************************************************
  164.  **                                                                             **
  165.  **                            Interpolation Types                                 **
  166.  **                                                                             **
  167.  ****************************************************************************
  168. }
  169.  
  170. TYPE
  171.     TQ3InterpolationStyle         = LONGINT;
  172. CONST
  173.     kQ3InterpolationStyleNone    = {TQ3InterpolationStyle}0;
  174.     kQ3InterpolationStyleVertex    = {TQ3InterpolationStyle}1;
  175.     kQ3InterpolationStylePixel    = {TQ3InterpolationStyle}2;
  176.  
  177. FUNCTION Q3InterpolationStyle_New(interpolationStyle: TQ3InterpolationStyle): TQ3StyleObject; C;
  178. FUNCTION Q3InterpolationStyle_Submit(interpolationStyle: TQ3InterpolationStyle; view: TQ3ViewObject): TQ3Status; C;
  179. FUNCTION Q3InterpolationStyle_Get(interpolationObject: TQ3StyleObject; VAR interpolationStyle: TQ3InterpolationStyle): TQ3Status; C;
  180. FUNCTION Q3InterpolationStyle_Set(interpolationObject: TQ3StyleObject; interpolationStyle: TQ3InterpolationStyle): TQ3Status; C;
  181. {
  182. *****************************************************************************
  183.  **                                                                             **
  184.  **                                Highlight Style                                 **
  185.  **                                                                             **
  186.  ****************************************************************************
  187. }
  188. FUNCTION Q3HighlightStyle_New(highlightAttribute: TQ3AttributeSet): TQ3StyleObject; C;
  189. FUNCTION Q3HighlightStyle_Submit(highlightAttribute: TQ3AttributeSet; view: TQ3ViewObject): TQ3Status; C;
  190. FUNCTION Q3HighlightStyle_Get(highlight: TQ3StyleObject; VAR highlightAttribute: TQ3AttributeSet): TQ3Status; C;
  191. FUNCTION Q3HighlightStyle_Set(highlight: TQ3StyleObject; highlightAttribute: TQ3AttributeSet): TQ3Status; C;
  192. {
  193. *****************************************************************************
  194.  **                                                                             **
  195.  **                            FrontFacing Direction Styles                     **
  196.  **                                                                             **
  197.  ****************************************************************************
  198. }
  199.  
  200. TYPE
  201.     TQ3OrientationStyle         = LONGINT;
  202. CONST
  203.     kQ3OrientationStyleCounterClockwise = {TQ3OrientationStyle}0;
  204.     kQ3OrientationStyleClockwise = {TQ3OrientationStyle}1;
  205.  
  206. FUNCTION Q3OrientationStyle_New(frontFacingDirection: TQ3OrientationStyle): TQ3StyleObject; C;
  207. FUNCTION Q3OrientationStyle_Submit(frontFacingDirection: TQ3OrientationStyle; view: TQ3ViewObject): TQ3Status; C;
  208. FUNCTION Q3OrientationStyle_Get(frontFacingDirectionObject: TQ3StyleObject; VAR frontFacingDirection: TQ3OrientationStyle): TQ3Status; C;
  209. FUNCTION Q3OrientationStyle_Set(frontFacingDirectionObject: TQ3StyleObject; frontFacingDirection: TQ3OrientationStyle): TQ3Status; C;
  210. {$ALIGN RESET}
  211. {$POP}
  212.  
  213. {$SETC UsingIncludes := QD3DStyleIncludes}
  214.  
  215. {$ENDC} {__QD3DSTYLE__}
  216.  
  217. {$IFC NOT UsingIncludes}
  218.  END.
  219. {$ENDC}
  220.